home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS222.dsk / DRIVE.YOUR.EYES.bas < prev    next >
BASIC Source File  |  2012-02-16  |  4KB  |  165 lines
  1. 1  REM   ***********************
  2. 2  REM   * DRIVE YOUR EYES
  3. 3  REM   * COPYRIGHT SEPT. 1986
  4. 4  REM   * PHIL SHAPIRO
  5. 5  REM   ***********************
  6. 6  HOME : FOR D = 1 TO 4000: NEXT D: SPEED= 10
  7. 7  VTAB 12: HTAB 11: PRINT "DRIVE  YOUR  EYES"
  8. 8  FOR D = 1 TO 3500: NEXT D
  9. 10  TEXT : HOME : SPEED= 70
  10. 12  FOR D = 1 TO 1000: NEXT D
  11. 15  PRINT : PRINT 
  12. 20  PRINT "SO YOU WANT TO TAKE YOUR"
  13. 30  PRINT 
  14. 40  PRINT "EYES OUT FOR A LITTLE DRIVE,"
  15. 50  PRINT 
  16. 60  PRINT "DO YOU? "
  17. 70  PRINT 
  18. 80  PRINT "OKAY, WE'LL START OUT SLOWLY,"
  19. 90  PRINT 
  20. 100  PRINT "AND BUILD UP TO A FASTER SPEED"
  21. 110  PRINT 
  22. 120  PRINT "AS YOU GAIN EXPERIENCE."
  23. 130  PRINT 
  24. 140  PRINT "READY ?"
  25. 150  PRINT 
  26. 160  PRINT "START YOUR ENGINE !"
  27. 170  PRINT 
  28. 180  PRINT "OKAY, YOUR EYES ARE NOW "
  29. 190  PRINT 
  30. 200  PRINT "TRAVELLING ALONG AT A NICE, "
  31. 210  PRINT 
  32. 220  PRINT "COMFORTABLE PACE. "
  33. 230  PRINT 
  34. 240  PRINT "THIS IS AN AVERAGE SPEED OF "
  35. 250  PRINT 
  36. 260  PRINT "READING AT WHICH THE AVERAGE "
  37. 270  PRINT 
  38. 280  PRINT "AMERICAN MIGHT READ A NEWSPAPER."
  39. 290  PRINT 
  40. 300  PRINT "NOW, PUT YOUR FOOT ON THE CLUTCH, "
  41. 310  PRINT 
  42. 320  PRINT "AND GENTLY SHIFT YOUR READING "
  43. 330  PRINT 
  44. 340  PRINT "SPEED INTO SECOND GEAR. "
  45. 350  PRINT 
  46. 355  SPEED= 90
  47. 360  PRINT "RELEASE THE CLUTCH, "
  48. 370  PRINT 
  49. 380  PRINT "AND GIVE IT GAS. "
  50. 390  PRINT 
  51. 400  PRINT "AT THIS SPEED YOU SHOULD "
  52. 410  PRINT 
  53. 420  PRINT "STILL HAVE TIME TO TAKE A LOOK "
  54. 430  PRINT 
  55. 440  PRINT "AT THE SCENERY AROUND YOU. "
  56. 450  PRINT 
  57. 460  PRINT "YOUR EYES CAN DAWDLE A LITTLE "
  58. 470  PRINT 
  59. 480  PRINT "ON ANY GIVEN PHRASE, AND "
  60. 490  PRINT 
  61. 500  PRINT "FOLLOW IT UP THE SCREEN OF "
  62. 510  PRINT 
  63. 520  PRINT "THE MONITOR. "
  64. 530  PRINT 
  65. 540  PRINT "AS A MATTER OF FACT, "
  66. 550  PRINT 
  67. 560  PRINT "GO AHEAD AND ENJOY SOME DAWDLING"
  68. 570  PRINT 
  69. 580  PRINT "BY FOLLOWING THIS LINE UP TO "
  70. 590  PRINT 
  71. 600  PRINT "ABOUT HALF-WAY UP THE SCREEN. "
  72. 605  PRINT 
  73. 606  PRINT 
  74. 607  PRINT 
  75. 608  PRINT 
  76. 609  PRINT 
  77. 610  PRINT 
  78. 611  PRINT 
  79. 612  PRINT 
  80. 620  PRINT "SURE, YOU CAN QUICKLY CATCH UP "
  81. 630  PRINT 
  82. 640  PRINT "TO THE SENTENCES COMING UP AT YOU "
  83. 650  PRINT 
  84. 660  PRINT "FROM THE BOTTOM OF THE MONITOR."
  85. 670  PRINT 
  86. 680  PRINT "BUT NOW, WHEN YOU PUT IN THE "
  87. 690  PRINT 
  88. 700  PRINT "CLUTCH A SECOND TIME, "
  89. 710  PRINT 
  90. 720  PRINT "AND SHIFT TO THIRD GEAR, "
  91. 730  PRINT 
  92. 740  PRINT "THE ACTION SPEEDS UP. "
  93. 745  SPEED= 110
  94. 750  PRINT 
  95. 760  PRINT "YES, NOW YOU'LL HAVE TO CONCENTRATE "
  96. 770  PRINT 
  97. 780  PRINT "JUST A LITTLE BIT MORE. "
  98. 790  PRINT 
  99. 800  PRINT "BUT HEY, ISN'T THERE A SLIGHT "
  100. 810  PRINT 
  101. 820  PRINT "THRILL IN BEING ABLE TO DRIVE "
  102. 830  PRINT 
  103. 840  PRINT "IN THIRD GEAR ? "
  104. 850  PRINT 
  105. 860  PRINT "SURE THOSE YELLOW LINES ARE "
  106. 870  PRINT 
  107. 880  PRINT "COMING AT YOU FAST, "
  108. 890  PRINT 
  109. 900  PRINT "BUT YOU'RE IN FULL CONTROL "
  110. 910  PRINT 
  111. 920  PRINT "OF THE CAR.        "
  112. 930  PRINT 
  113. 940  PRINT "FEELING A LITTLE LIKE SEEING "
  114. 950  PRINT 
  115. 960  PRINT "WHAT THIS CAR CAN DO ? "
  116. 970  PRINT 
  117. 980  PRINT "CURIOUS TO SEE WHAT HAPPENS "
  118. 990  PRINT 
  119. 1000  PRINT "WHEN THE PEDAL HITS THE FLOOR ? "
  120. 1010  PRINT 
  121. 1020  PRINT "PUSH IN THE CLUTCH, "
  122. 1030  PRINT 
  123. 1035  SPEED= 125
  124. 1040  PRINT "AND HANG ON FOR FOURTH GEAR. "
  125. 1050  PRINT 
  126. 1060  PRINT "IF YOU OPEN THE WINDOW NOW, "
  127. 1070  PRINT 
  128. 1080  PRINT "YOU'LL SURE FEEL THE WIND JUST "
  129. 1090  PRINT 
  130. 1100  PRINT "BLOWIN' THROUGH YOUR HAIR. "
  131. 1110  PRINT 
  132. 1120  PRINT "IT SURE SEEMS DIZZYINGLY FAST "
  133. 1130  PRINT 
  134. 1140  PRINT "AT FIRST.       "
  135. 1150  PRINT 
  136. 1160  PRINT "BUT YOU GET USED TO IT. "
  137. 1170  PRINT 
  138. 1180  PRINT "AND IN NO TIME AT ALL "
  139. 1190  PRINT 
  140. 1200  PRINT "ANY SPEED SLOWER THAN THIS "
  141. 1210  PRINT 
  142. 1220  PRINT "WILL SEEM LIKE A SNAIL'S PACE."
  143. 1230  PRINT 
  144. 1240  PRINT "                    "
  145. 1250  PRINT 
  146. 1260  PRINT "WHICH ALL GOES TO SHOW "
  147. 1270  PRINT 
  148. 1280  PRINT "THAT DRIVING A CAR IS "
  149. 1290  PRINT 
  150. 1300  PRINT "A LOT LIKE READING A SENTENCE. "
  151. 1310  PRINT 
  152. 1320  PRINT "THE MORE PRACTICE YOU GET, "
  153. 1330  PRINT 
  154. 1340  PRINT "AND THE MORE CONFIDENCE YOU DEVELOP, "
  155. 1350  PRINT 
  156. 1360  PRINT "THE FASTER YOU'LL BE ABLE TO "
  157. 1370  PRINT 
  158. 1380  PRINT "GO.             "
  159. 1390  PRINT 
  160. 1400  FOR D = 1 TO 1500: NEXT D
  161. 1405  PRINT : PRINT 
  162. 1410  VTAB 12: PRINT "(C) COPYRIGHT SEPT. 1986   PHIL SHAPIRO"
  163. 1420  FOR D = 1 TO 4000: NEXT D
  164. 1430  HOME 
  165. 1440  END